/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Programming / NetstatSource / NetSpeak1.1.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 c3 00 cf 04 20 30 00 | 00 00 80 01 20 2e 73 72 |..... 0.|.... .sr|
|00000010| 65 63 6f 72 64 00 20 20 | 6f 66 66 73 65 74 2e 62 |ecord.  |offset.b|
|00000020| 00 20 20 73 61 6d 70 6c | 65 2e 73 00 20 20 6c 6f |.  sampl|e.s.  lo|
|00000030| 6f 70 2e 62 00 80 02 20 | 80 01 00 00 73 63 72 69 |op.b... |....scri|
|00000040| 70 74 24 3d 22 6e 65 74 | 73 74 61 74 3a 73 61 6d |pt$="net|stat:sam|
|00000050| 70 6c 65 73 22 00 76 65 | 72 73 69 6f 6e 24 3d 22 |ples".ve|rsion$="|
|00000060| 56 65 72 73 69 6f 6e 20 | 31 2e 32 22 00 73 61 6d |Version |1.2".sam|
|00000070| 70 6c 65 64 69 72 24 3d | 22 6e 65 74 73 74 61 74 |pledir$=|"netstat|
|00000080| 3a 73 6f 75 6e 64 73 22 | 00 80 32 20 70 61 74 68 |:sounds"|..2 path|
|00000090| 24 3d 31 39 32 00 80 32 | 20 6e 61 6d 65 24 3d 31 |$=192..2| name$=1|
|000000a0| 39 32 00 70 61 74 68 24 | 3d 22 4e 65 74 73 74 61 |92.path$|="Netsta|
|000000b0| 74 3a 22 00 6e 61 6d 65 | 24 3d 22 73 61 6d 70 6c |t:".name|$="sampl|
|000000c0| 65 73 22 00 00 80 06 20 | 74 6f 6f 6c 74 79 70 65 |es".... |tooltype|
|000000d0| 73 00 80 06 20 69 6e 69 | 74 5f 67 61 64 67 65 74 |s... ini|t_gadget|
|000000e0| 73 00 80 06 20 62 75 69 | 6c 64 5f 6c 69 73 74 00 |s... bui|ld_list.|
|000000f0| 00 2e 73 74 61 72 74 00 | c5 01 20 30 2c 30 2c 30 |..start.|.. 0,0,0|
|00000100| 2c 31 32 30 2c 31 32 2c | 24 31 30 30 45 2c 22 4e |,120,12,|$100E,"N|
|00000110| 65 74 53 70 65 61 6b 22 | 2c 31 2c 32 00 92 83 20 |etSpeak"|,1,2... |
|00000120| 30 00 00 80 bb 00 20 20 | 80 0b 20 bc 0b 3d 30 00 |0.....  |.. ..=0.|
|00000130| 20 20 20 20 fe 1b 28 35 | 30 29 00 20 20 80 22 00 |    ..(5|0).  .".|
|00000140| 20 20 20 20 fe 1b 28 36 | 30 29 00 20 20 80 c0 00 |    ..(6|0).  ...|
|00000150| 20 20 80 06 20 63 68 65 | 63 6b 5f 74 69 6d 65 73 |  .. che|ck_times|
|00000160| 00 20 20 6e 65 76 2e 6c | 3d c5 03 00 20 20 20 20 |.  nev.l|=...    |
|00000170| 80 0e 20 6e 65 76 00 20 | 20 20 20 20 20 80 0f 20 |.. nev. |     .. |
|00000180| 24 32 30 30 00 20 20 20 | 20 20 20 20 20 80 02 00 |$200.   |     ...|
|00000190| 20 20 20 20 20 20 80 0f | 20 24 31 30 30 00 20 20 |      ..| $100.  |
|000001a0| 20 20 20 20 20 20 80 0e | 20 c5 08 00 20 20 20 20 |      ..| ...    |
|000001b0| 20 20 20 20 20 20 80 0f | 20 30 00 20 20 20 20 20 |      ..| 0.     |
|000001c0| 20 20 20 20 20 20 20 73 | 63 72 69 70 74 24 3d a8 |       s|cript$=.|
|000001d0| 01 28 22 53 65 6c 65 63 | 74 20 53 61 6d 70 6c 65 |.("Selec|t Sample|
|000001e0| 20 4c 69 73 74 22 2c 70 | 61 74 68 24 2c 6e 61 6d | List",p|ath$,nam|
|000001f0| 65 24 2c 22 23 3f 22 29 | 00 20 20 20 20 20 20 20 |e$,"#?")|.       |
|00000200| 20 20 20 20 20 80 06 20 | 62 75 69 6c 64 5f 6c 69 |     .. |build_li|
|00000210| 73 74 00 20 20 20 20 20 | 20 20 20 20 20 80 0f 20 |st.     |     .. |
|00000220| 31 00 20 20 20 20 20 20 | 20 20 20 20 20 20 80 06 |1.      |      ..|
|00000230| 20 61 62 6f 75 74 5f 77 | 69 6e 00 20 20 20 20 20 | about_w|in.     |
|00000240| 20 20 20 20 20 80 0f 20 | 32 00 20 20 20 20 20 20 |     .. |2.      |
|00000250| 20 20 20 20 20 20 80 02 | 00 20 20 20 20 20 20 20 |      ..|.       |
|00000260| 20 80 02 20 80 0e 00 20 | 20 20 20 80 02 20 80 0e | .. ... |   .. ..|
|00000270| 00 80 c7 00 00 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |......;-|--------|
|00000280| 2d 2d 2d 20 53 75 62 20 | 72 6f 75 74 69 6e 65 73 |--- Sub |routines|
|00000290| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 00 00 2e | -------|-----...|
|000002a0| 62 75 69 6c 64 5f 6c 69 | 73 74 00 20 20 77 6f 6f |build_li|st.  woo|
|000002b0| 68 6f 6f 2e 6c 3d be 11 | 28 31 2c 73 63 72 69 70 |hoo.l=..|(1,scrip|
|000002c0| 74 24 29 00 20 20 80 04 | 20 80 b3 20 73 61 6d 70 |t$).  ..| .. samp|
|000002d0| 6c 65 6c 73 74 2e 73 72 | 65 63 6f 72 64 28 35 30 |lelst.sr|ecord(50|
|000002e0| 29 00 20 20 80 04 20 80 | b3 20 72 65 63 6f 72 64 |).  .. .|. record|
|000002f0| 73 24 28 35 30 29 00 00 | 20 20 80 0b 20 77 6f 6f |s$(50)..|  .. woo|
|00000300| 68 6f 6f 00 20 20 20 20 | be 08 20 31 00 20 20 20 |hoo.    |.. 1.   |
|00000310| 20 80 bb 00 20 20 20 20 | 20 20 80 0b 20 c0 02 20 | ...    |  .. .. |
|00000320| 28 72 65 63 6f 72 64 73 | 24 28 29 29 00 20 20 20 |(records|$()).   |
|00000330| 20 20 20 20 20 72 65 63 | 6f 72 64 73 24 28 29 3d |     rec|ords$()=|
|00000340| dd 01 28 32 35 36 29 00 | 20 20 20 20 20 20 80 c0 |..(256).|      ..|
|00000350| 00 20 20 20 20 80 bc 20 | be 0d 28 31 29 00 20 20 |.    .. |..(1).  |
|00000360| 20 20 be 02 20 31 00 20 | 20 80 c0 00 00 20 20 c0 |  .. 1. | ....  .|
|00000370| 04 20 73 61 6d 70 6c 65 | 6c 73 74 28 29 00 20 20 |. sample|lst().  |
|00000380| c0 04 20 72 65 63 6f 72 | 64 73 24 28 29 00 20 20 |.. recor|ds$().  |
|00000390| 80 0c 20 c0 03 28 72 65 | 63 6f 72 64 73 24 28 29 |.. ..(re|cords$()|
|000003a0| 29 00 20 20 20 20 80 0b | 20 c0 02 28 73 61 6d 70 |).    ..| ..(samp|
|000003b0| 6c 65 6c 73 74 28 29 29 | 00 20 20 20 20 20 20 73 |lelst())|.      s|
|000003c0| 70 63 31 2e 62 3d dc 89 | 28 72 65 63 6f 72 64 73 |pc1.b=..|(records|
|000003d0| 24 28 29 2c 22 20 22 29 | 00 20 20 20 20 20 20 73 |$()," ")|.      s|
|000003e0| 61 6d 70 6c 65 6c 73 74 | 28 29 5c 6f 66 66 73 65 |amplelst|()\offse|
|000003f0| 74 3d bc 01 28 dc 81 28 | 72 65 63 6f 72 64 73 24 |t=..(..(|records$|
|00000400| 28 29 2c 73 70 63 31 29 | 29 00 20 20 20 20 20 20 |(),spc1)|).      |
|00000410| 73 70 63 32 2e 62 3d dc | 89 28 72 65 63 6f 72 64 |spc2.b=.|.(record|
|00000420| 73 24 28 29 2c 22 20 22 | 2c 73 70 63 31 2b 31 29 |s$()," "|,spc1+1)|
|00000430| 00 20 20 20 20 20 20 80 | 0b 20 73 70 63 32 3d 30 |.      .|. spc2=0|
|00000440| 20 80 21 20 73 70 63 32 | 3d dc 8f 28 72 65 63 6f | .! spc2|=..(reco|
|00000450| 72 64 73 24 28 29 29 00 | 20 20 20 20 20 20 73 61 |rds$()).|      sa|
|00000460| 6d 70 6c 65 6c 73 74 28 | 29 5c 73 61 6d 70 6c 65 |mplelst(|)\sample|
|00000470| 3d dc 83 28 72 65 63 6f | 72 64 73 24 28 29 2c 73 |=..(reco|rds$(),s|
|00000480| 70 63 31 2b 31 2c 73 70 | 63 32 2d 73 70 63 31 29 |pc1+1,sp|c2-spc1)|
|00000490| 00 20 20 20 20 20 20 80 | 0b 20 dc 89 28 73 61 6d |.      .|. ..(sam|
|000004a0| 70 6c 65 6c 73 74 28 29 | 5c 73 61 6d 70 6c 65 2c |plelst()|\sample,|
|000004b0| 22 20 22 29 3e 30 00 20 | 20 20 20 20 20 20 20 73 |" ")>0. |       s|
|000004c0| 61 6d 70 6c 65 6c 73 74 | 28 29 5c 73 61 6d 70 6c |amplelst|()\sampl|
|000004d0| 65 3d dc 81 28 73 61 6d | 70 6c 65 6c 73 74 28 29 |e=..(sam|plelst()|
|000004e0| 5c 73 61 6d 70 6c 65 2c | dc 8f 28 73 61 6d 70 6c |\sample,|..(sampl|
|000004f0| 65 6c 73 74 28 29 5c 73 | 61 6d 70 6c 65 29 2d 31 |elst()\s|ample)-1|
|00000500| 29 00 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 |).      |...     |
|00000510| 20 6c 6f 6f 70 63 68 6b | 2e 62 3d dc 89 28 72 65 | loopchk|.b=..(re|
|00000520| 63 6f 72 64 73 24 28 29 | 2c 22 72 65 70 65 61 74 |cords$()|,"repeat|
|00000530| 22 29 00 20 20 20 20 20 | 20 80 0b 20 6c 6f 6f 70 |").     | .. loop|
|00000540| 63 68 6b 3e 30 00 20 20 | 20 20 20 20 20 20 73 61 |chk>0.  |      sa|
|00000550| 6d 70 6c 65 6c 73 74 28 | 29 5c 6c 6f 6f 70 3d bc |mplelst(|)\loop=.|
|00000560| 01 28 dc 82 28 72 65 63 | 6f 72 64 73 24 28 29 2c |.(..(rec|ords$(),|
|00000570| dc 8f 28 72 65 63 6f 72 | 64 73 24 28 29 29 2d 28 |..(recor|ds$())-(|
|00000580| 6c 6f 6f 70 63 68 6b 2b | 36 29 29 29 00 20 20 20 |loopchk+|6))).   |
|00000590| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 73 61 |   .".  |      sa|
|000005a0| 6d 70 6c 65 6c 73 74 28 | 29 5c 6c 6f 6f 70 3d 30 |mplelst(|)\loop=0|
|000005b0| 00 20 20 20 20 20 20 80 | c0 00 20 20 20 20 80 c0 |.      .|..    ..|
|000005c0| 00 20 20 80 c1 00 80 07 | 00 00 2e 63 68 65 63 6b |.  .....|...check|
|000005d0| 5f 74 69 6d 65 73 00 20 | 20 c0 01 20 73 61 6d 70 |_times. | .. samp|
|000005e0| 6c 65 6c 73 74 28 29 00 | 20 20 74 69 6d 65 3d bc |lelst().|  time=.|
|000005f0| 01 28 b6 a8 28 22 6e 65 | 74 74 69 6d 65 22 29 29 |.(..("ne|ttime"))|
|00000600| 2f 36 30 00 20 20 74 69 | 6d 65 32 3d bc 02 28 74 |/60.  ti|me2=..(t|
|00000610| 69 6d 65 29 00 20 20 80 | 0b 20 28 28 74 69 6d 65 |ime).  .|. ((time|
|00000620| 32 3d 74 69 6d 65 29 20 | 80 42 20 28 74 69 6d 65 |2=time) |.B (time|
|00000630| 3d 3e 31 29 29 00 20 20 | 20 20 80 bb 00 20 20 20 |=>1)).  |  ...   |
|00000640| 20 20 20 80 0b 20 73 61 | 6d 70 6c 65 6c 73 74 28 |   .. sa|mplelst(|
|00000650| 29 5c 6c 6f 6f 70 3e 30 | 00 20 20 20 20 20 20 20 |)\loop>0|.       |
|00000660| 20 6c 6f 6f 70 32 2e 71 | 3d 28 74 69 6d 65 2b 73 | loop2.q|=(time+s|
|00000670| 61 6d 70 6c 65 6c 73 74 | 28 29 5c 6f 66 66 73 65 |amplelst|()\offse|
|00000680| 74 29 2f 73 61 6d 70 6c | 65 6c 73 74 28 29 5c 6c |t)/sampl|elst()\l|
|00000690| 6f 6f 70 00 20 20 20 20 | 20 20 20 20 6c 6f 6f 70 |oop.    |    loop|
|000006a0| 33 2e 62 3d bc 02 28 6c | 6f 6f 70 32 29 00 20 20 |3.b=..(l|oop2).  |
|000006b0| 20 20 20 20 20 20 80 0b | 20 6c 6f 6f 70 33 3d 6c |      ..| loop3=l|
|000006c0| 6f 6f 70 32 20 80 21 20 | 74 69 6d 65 3d 73 61 6d |oop2 .! |time=sam|
|000006d0| 70 6c 65 6c 73 74 28 29 | 5c 6f 66 66 73 65 74 00 |plelst()|\offset.|
|000006e0| 20 20 20 20 20 20 80 c0 | 00 20 20 20 20 20 20 80 |      ..|.      .|
|000006f0| 0b 20 73 61 6d 70 6c 65 | 6c 73 74 28 29 5c 6f 66 |. sample|lst()\of|
|00000700| 66 73 65 74 3d 74 69 6d | 65 00 20 20 20 20 20 20 |fset=tim|e.      |
|00000710| 20 20 ba 03 20 30 2c 73 | 61 6d 70 6c 65 64 69 72 |  .. 0,s|ampledir|
|00000720| 24 2b 22 2f 22 2b 73 61 | 6d 70 6c 65 6c 73 74 28 |$+"/"+sa|mplelst(|
|00000730| 29 5c 73 61 6d 70 6c 65 | 00 20 20 20 20 20 20 20 |)\sample|.       |
|00000740| 20 ba 04 20 30 2c 31 35 | 00 20 20 20 20 20 20 80 | .. 0,15|.      .|
|00000750| c0 00 20 20 20 20 80 bc | 20 c0 03 28 73 61 6d 70 |..    ..| ..(samp|
|00000760| 6c 65 6c 73 74 28 29 29 | 3d 30 00 20 20 80 c0 00 |lelst())|=0.  ...|
|00000770| 80 07 00 00 2e 69 6e 69 | 74 5f 67 61 64 67 65 74 |.....ini|t_gadget|
|00000780| 73 00 20 20 92 85 20 30 | 2c 30 2c 22 4e 65 74 53 |s.  .. 0|,0,"NetS|
|00000790| 70 65 61 6b 22 00 20 20 | 92 86 20 30 2c 30 2c 30 |peak".  |.. 0,0,0|
|000007a0| 2c 30 2c 22 4c 6f 61 64 | 20 53 63 72 69 70 74 22 |,0,"Load| Script"|
|000007b0| 2c 22 4c 22 00 20 20 92 | 86 20 30 2c 30 2c 30 2c |,"L".  .|. 0,0,0,|
|000007c0| 31 2c 22 41 62 6f 75 74 | 22 2c 22 41 22 00 20 20 |1,"About|","A".  |
|000007d0| 92 86 20 30 2c 30 2c 30 | 2c 32 2c 22 51 75 69 74 |.. 0,0,0|,2,"Quit|
|000007e0| 22 2c 22 51 22 00 80 07 | 00 00 2e 74 6f 6f 6c 74 |","Q"...|...toolt|
|000007f0| 79 70 65 73 00 20 20 9d | 81 28 22 6e 65 74 73 74 |ypes.  .|.("netst|
|00000800| 61 74 3a 70 6c 75 67 69 | 6e 73 2f 6e 65 74 73 70 |at:plugi|ns/netsp|
|00000810| 65 61 6b 22 29 00 20 20 | 80 0b 20 9d 8f 28 22 53 |eak").  |.. ..("S|
|00000820| 43 52 49 50 54 46 49 4c | 45 22 29 00 20 20 20 20 |CRIPTFIL|E").    |
|00000830| 73 63 72 69 70 74 24 3d | 9d 82 28 22 53 43 52 49 |script$=|..("SCRI|
|00000840| 50 54 46 49 4c 45 22 29 | 00 20 20 80 c0 00 20 20 |PTFILE")|.  ...  |
|00000850| 80 0b 20 9d 8f 28 22 53 | 41 4d 50 4c 45 44 49 52 |.. ..("S|AMPLEDIR|
|00000860| 22 29 00 20 20 20 20 73 | 61 6d 70 6c 65 64 69 72 |").    s|ampledir|
|00000870| 24 3d 9d 82 28 22 53 41 | 4d 50 4c 45 44 49 52 22 |$=..("SA|MPLEDIR"|
|00000880| 29 00 20 20 80 c0 00 80 | 07 00 20 20 20 20 20 20 |).  ....|..      |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000900| 20 20 20 20 20 20 20 20 | 00 00 2e 61 62 6f 75 74 |        |...about|
|00000910| 5f 77 69 6e 00 20 20 61 | 62 6f 75 74 73 74 72 24 |_win.  a|boutstr$|
|00000920| 3d 22 4e 65 74 53 70 65 | 61 6b 22 2b dc 86 28 31 |="NetSpe|ak"+..(1|
|00000930| 30 29 2b dc 86 28 31 30 | 29 2b 22 42 79 20 54 6f |0)+..(10|)+"By To|
|00000940| 6d 20 4d 69 6c 65 73 22 | 2b dc 86 28 31 30 29 2b |m Miles"|+..(10)+|
|00000950| 76 65 72 73 69 6f 6e 24 | 2b dc 86 28 31 30 29 2b |version$|+..(10)+|
|00000960| dc 86 28 31 30 29 2b 22 | 6e 65 74 73 74 61 74 40 |..(10)+"|netstat@|
|00000970| 73 6f 2d 77 61 74 74 73 | 2e 64 65 6d 6f 6e 2e 63 |so-watts|.demon.c|
|00000980| 6f 2e 75 6b 22 00 20 20 | 61 62 6f 75 74 73 74 72 |o.uk".  |aboutstr|
|00000990| 24 2b dc 86 28 31 30 29 | 00 20 20 72 65 73 75 6c |$+..(10)|.  resul|
|000009a0| 74 3d 9b 01 28 22 41 62 | 6f 75 74 22 2c 61 62 6f |t=..("Ab|out",abo|
|000009b0| 75 74 73 74 72 24 2c 22 | 43 6f 6f 6c 21 7c 53 6f |utstr$,"|Cool!|So|
|000009c0| 20 57 68 61 74 21 22 29 | 00 80 07 00             | What!")|....    |
+--------+-------------------------+-------------------------+--------+--------+